home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Graphics Programming (2nd Edition) / Visual Basic Graphics Programming 2nd Edition.iso / Src / Ch17 / Trans2.ray < prev    next >
Text File  |  1999-07-06  |  949b  |  34 lines
  1. Viewpoint(1000, -0.2, -0.5)
  2. AmbientLight(128, 128, 128)
  3. LightSource(-1000, -500, 1000, 255, 255, 255)
  4. LightSource(1000, -500, 1000, 255, 255, 255)
  5. Sphere( 50, -20, 0, -80,
  6.   0.7, 0.2, 0.2, ' Ambient.
  7.   0.7, 0.2, 0.2, ' Diffuse.
  8.   20, 0.35,      ' Specular.
  9.   0, 0, 0,       ' Reflected.
  10.   3, 1, 1.4,     ' TransN, n1, n2.
  11.   0, 0, 0        ' Tansmission.
  12. )
  13. Sphere( 50, 20, 0, 80,
  14.   0.2, 0.7, 0.2, ' Ambient.
  15.   0.2, 0.7, 0.2, ' Diffuse.
  16.   20, 0.35,      ' Specular.
  17.   0, 0, 0,       ' Reflected.
  18.   3, 1, 1.4,     ' TransN, n1, n2.
  19.   0, 0, 0        ' Tansmission.
  20. )
  21. Polygon(4, ' Number of points
  22.   -150, -150,  150, ' Point 1
  23.    150, -150, -150, ' Point 2
  24.    150,  150, -150, ' Point 3
  25.   -150,  150,  150, ' Point 4
  26.   0.1, 0.1, 0.1,    ' Ambient.
  27.   0.1, 0.1, 0.1,    ' Diffuse.
  28.   20, 0.35,         ' Specular.
  29.   0.5, 0.5, 0.5,    ' Reflected.
  30.   3, 1, 1,          ' TransN, n1, n2.
  31.   0.5, 0.5, 0.5     ' Tansmission.
  32. )
  33.  
  34.